Var a:real;
Begin
Write('a=') ;read(a) ;
Write('f=', 2*a*a+abs(6-a)+293*a) ;
End.
Ответ:
Var name,s:string;
Begin
Writeln('Введите Ваше имя и класс через пробел');
Read(s);
Ffor i:=1 to length(s) do
Begin
If s[i]= ' ' then break;
Name:=name+s[i];
End;
Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');
End.
6 первый ответ один
6 второй ответ ноль