Var a: Real;
begin
writeln('Введите сторону a: ');
readln(a);
writeln('S=',a*a);
writeln('P=',4*a);
end.
1) Исходные данные - это данные, которые вводятся пользователем, которые в процессе выполнения некоторых действий будут использованы для получение каких-либо результатов,
соответственно результаты - данные которые получаются в результате работы некоторых действий.
2) 18 - 12*5/3*2 = 18 - 40 = -22
(17-8)*8/(3*4) = 9*8/12 = 6
Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.