program p1;
uses crt;
var
	a,b,x:real;
	z:integer;
begin
	clrscr;
	Write('Podaj nr. dzialania');
	Writeln;
	Write('1-suma 2-iloczyn');
	read(z);
	case z of
		1:begin
			writeln;
			write('Podaj a oraz b');
			read(a,b);
			x:=a+b;
			writeln;
			write('Wynik=',x:4:2);
		end;
		2:begin
			write('Podaj a oraz b');
			read(a,b);
			x:=a*b;
			writeln;
			write('Wynik=',x:4:2);
		end;
		else
			write('Brak dzialania');
	end;
	readkey;
end.