Program kontr;
var a,b:integer;
c:char;
n,m:string;
begin
writeln ('Введите первую цифру');
readln(a);
writeln ('Введите вторую цифру');
readln(b);
writeln ('Введите один из знаков: +,-,*,/');
readln(c);
case a of
0:n:='ноль';
1:n:='один';
2:n:='два';
3:n:='три';
4:n:='четыре';
5:n:='пять';
6:n:='шесть';
7:n:='семь';
8:n:='восемь';
9:n:='девять';
end;
case b of
0:m:='ноль';
1:m:='один';
2:m:='два';
3:m:='три';
4:m:='четыре';
5:m:='пять';
6:m:='шесть';
7:m:='семь';
8:m:='восемь';
9:m:='девять';
end;
case c of
'*': writeln (n,' умножить на ',m);
'/': writeln (n,' разделить на ',m);
'+': writeln (n,' плюс ',m);
'-': writeln (n,' минус ',m);
end;
end.
var a,b,c:integer;
s,p:real;
begin
writeln('vvedite a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s);
readln;
end.