<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
Буш,Цузе,Ершов,рамаев,Лебедев,жаккард,паскаль,энгельба
Var Y,a,x:real;
c:Integer;
begin
read(a);
x:=0.5;
while x<=4.5 do begin
Y:=a+sqr(x);
writeln('x:',x:2:2,' Y:',Y:2:2);
c:=c+1;
x:=x+0.3;
end;
write('Среднее арифмитическое:',Y/c:2:2);
end.
я думаю что эт правильно
В Pascal используй модуль GraphABC. Можешь почитать про его возможности в интернете.
Var a,b:real;
begin;
readln(a);
readln(b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
end.