Ха-ха-ха)) Белорусский учебник по информатике за 10 класс)))
Там все просто...
Программа №4
Program str999;
Uses CRT;
Var
s: String;
Begin
Writeln('Введіте фразу');
read(s);
if (s='край озер') then
writeln ('Край озер лесов и рек');
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.
Потхоньку буду дополнять, не так все быстро))
Задание №5
Program р_1;
Uses CRT;
Var
s: String;
Begin
Writeln('Введите фразу');
read(s);
if (s='моя родина Беларусь') then
writeln ('Беларусь моя родина');
if (s='люблю цябе мой родны кут') then
writeln ('мой родны кут люблю цябе')
end.
var a,b: integer;
begin
writeln('Введите значение а: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
a:=sqr(a);
b:=sqr(b);
writeln('a = ',a,' b = ',b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.