Скласти програму, де виконавець буде питати користувача «Що намалювати? Якщо квадрати – введи 4, а якщо трикутники, то 3». Якщо відповідь
користувача «3», то намалювати 5 кольорових трикутників, інакше якщо
відповідь користувача «4», то намалювати 5 кольорових квадратиків. Інакше
Виконавець каже «Не розумію, спробуй ще раз!».

Показати код в сркетч 3

Uses Crt;
var
  x,y:real;
begin
  ClrScr;
  x:=0;
  while x<=3.8 do
  begin
     y:=sqrt((1/2*x-1)+2);
     Writeln(x:3:1,'  ',y:10:8);
     x:=x+0.1
  end;
  ReadKey
end.

Результат выполнения программы:
0.0  1.00000000
0.1  1.02469508
0.2  1.04880885
0.3  1.07238053
0.4  1.09544512
0.5  1.11803399
0.6  1.14017543
0.7  1.16189500
0.8  1.18321596
0.9  1.20415946
1.0  1.22474487
1.1  1.24498996
1.2  1.26491106
1.3  1.28452326
1.4  1.30384048
1.5  1.32287566
1.6  1.34164079
1.7  1.36014705
1.8  1.37840488
1.9  1.39642400
2.0  1.41421356
2.1  1.43178211
2.2  1.44913767
2.3  1.46628783
2.4  1.48323970
2.5  1.50000000
2.6  1.51657509
2.7  1.53297097
2.8  1.54919334
2.9  1.56524758
3.0  1.58113883
3.1  1.59687194
3.2  1.61245155
3.3  1.62788206
3.4  1.64316767
3.5  1.65831240
3.6  1.67332005
3.7  1.68819430
3.8  1.70293864

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.