4) а < 0
судя по этому должна быть ошибка в паскале...
3*16*32 = 2^9 * 3 = 512*3 = 1536 байт
1536/1024 = 1.5 Кбайт
Не видно. Большие фото зделай.
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var s:=ReadString('введите свое имя и фамилию:');
for var i:=1 to 10 do s.Println;
end.
program summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.