Question

Napisz 3 programy w Free Pascalu .

Answer 1

program zad1;

uses crt;

var a,s,b:integer;

begin

writeln('podaj 2 liczby ktore chcesz dodac');

readln(a,b);

s:=a+b;
writeln('suma=' ,s);

repeat until keypressed

end.

program zad2;

uses crt;

var a,b,i:integer;

begin

writeln('podaj 2 liczby ktore chcesz pomnozyc');

readln(a,b);

i:=a*b;
writeln('iloczyn=' ,i);

repeat until keypressed

end.

program zad3;

uses crt;

var a,p:integer;

begin

writeln('podajliczbe którą chcesz podnieść do potęgi ');

readln(a);

p:=a*a;
writeln('potega=' ,p);

repeat until keypressed

end.