В сообщении "Завтра в школу" 14 символов, включая пробелы. При стандартном кодировании 1 символ занимает 1 байт, следовательно все сообщение будет занимать 14 байтов
Var s,i: real;begini:=1;s:=12;if s<=100 then i:=i+1 elses:=1.2*s+2;writeln(s);<span>end.
Так попробуй</span>
Вариант значения D и работы алгоритма:
D := 40
40 > 30 (Да)
Y := 40
Смотри картинку
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.