Напишите программу нахождения сопротивления по формуле R0=1/((1/R1+1/R2+1/R3))
На языке Pascal abc

Написали бы язык программирования. Вот на java.
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;


public class znanie {
public static void main(String[] args) throws IOException {
BufferedReader reader=new BufferedReader(new InputStreamReader(System.in));
long A=Long.parseLong(reader.readLine());
long B=Long.parseLong(reader.readLine());
if((A<0)||(B<0)){
System.exit(0);
}
long sum=0;
for (long i = A; i <= B; i++) {
if((i%5==0)||(i%13==0)){
sum=sum+i;
}
}
System.out.println(sum);
}
}

Import java.util.*;

public class zadacha
{

public static void main(String[]args)

{

cout("Введите номер ед.изм: ");

@SuppressWarnings("resource") Scanner cin = new Scanner (System.in);
double v=cin.nextInt();

cout("Введите массу в указанной ед.изм: ");
double m=cin.nextDouble();

if (v==1) {
  print(m);
 }

else if (v==2) {
  print(m/st(6));
 }

else if (v==3) {
  print(m/st(3));
  }

else if (v==4) {
  print(m*st(3));
 }

else if (v==5) {
  print(m*st(2));
}

}

public static void cout (String text)
{
 System.out.print(text);
}
public static void print(double printer)
{
 System.out.print(printer);
}

public static int st(int t)
{
t=(int) Math.pow(10, t); return t;
}

}