Question

1. Se citește de la tastatură o valoare reprezentând latura unui pătrat. Dacă valoarea citită este strict pozitivă afișăm perimetrul și aria pătratului, altfel afișăn mesajul ”nu poate fi latura unui pătrat”
2.Se citește de la tastatură un număr întreg a. Dacă numărul este pozitiv se afișează dublul lui, altfel se afișează triplul lui.

Answer 1

1. 
program patrat;
uses crt;
var l,A,P:integer;
begin
clrscr;
writeln('dati valori lui l=');
readln(l);
if l<0 then writeln('nu poate fi latura unui patrat') else begin
A:=sqr(l);
writeln('aria patratului este A=' ,A);
P:=4*l;
writeln('perimetrul patratului este P=' ,P);
readln;
end:
end.

2.
program numar;
uses crt;
var a,a2,a3:integer;
begin
clrscr;
writeln('dati valori lui a=');
readln(a);
a2:=2*a;
a3:=3*a;
if a>0 then writeln('se va afisa dublul lui a' ,a2) else begin
if a<0 then writeln('se va afisa triplul lui a' ,a3) else begin
readln;
end;
end;
end.

Answer 2

1)
program patrat;
var l:integer;
begin
readln(l);
if l>0 then
begin
writeln('Aria: ',l*l);
writeln('Perimetrul: ',4*l);
end else writeln('nu poate fi latura unui patrat');
readln;
end.
2)
program numar;
var a:integer;
begin
readln(a);
if a<0 then writeln(3*a) else writeln(2*a);
readln;
end.