8. Постройте таблицу истинности для заданного логического выражения:

<form method="GET"  enctype="multipart/form-data">
<table>
<tr>
<td><input type="text" name="number" id="number"></td>
<td><input type="text" name="data" id="data"></td>
</tr>
<td><input type="submit" id="submit"></td>
</table>
</form>

<script type="text/javascript">
// Скрипт должен располагаться после формы

var M = [];

// Получение параметров
var parts = window.location.href.replace(/[?&]+([^=&]+)=([^&]*)/gi, 
function(m,key,value) { M[key] = value; });

// ставим обратно в поля
if (M['number']) document.getElementById('number').value = M['number'];
if (M['data']) document.getElementById('data').value = M['data'];

// вот так можно перебрать:
for (var key in M) alert(key + ' ' + M[key]);

</script> 

Program A;
var a,b,c,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
begin
write('введите число:');
readln(b);
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3

program B;
var a,b,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
b:=random(300)+1;
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится  только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3